BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/Si-Sr/Software Database™.cpt/Software Database™/Software Database™/background_2778.txt

Text File | 1988-07-10 | 24.8 KB | 1,082 lines

-- background: 2778 from stack: in
-- bmap block id: 10234
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on fix
  set lockscreen to true
  repeat with x=2 to number of cards
    go to card x
    get the script of bkgnd button "card script"
    set the script of this card to it
  end repeat
end fix



-- part 1 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=114 top=0 right=20 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: program name


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=79 top=47 right=80 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: keywords


-- part 3 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=48 top=82 right=102 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: type


-- part 4 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=66 top=103 right=123 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: version


-- part 6 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=56 top=149 right=171 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: source


-- part 7 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=35 top=174 right=196 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: size


-- part 9 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=44 top=197 right=218 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: price


-- part 11 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=96 top=219 right=239 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: paid?


-- part 20 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=441 top=81 right=100 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: memory


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=486 top=318 right=340 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=455 top=319 right=342 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=26 top=255 right=299 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 1001 / 1001
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add a New Card
----- HyperTalk script -----
on mouseUp
  global t99,t98
  put bkgnd field "add file explan" into t98
  put bkgnd field "mousedown message" into t99
  put bkgnd field "resource help" into t97
  domenu "new card"
  --domenu "paste card"
  put t98 into bkgnd field "add file explan"
  put t99 into bkgnd field "mousedown message"
  put t97 into bkgnd field "resource help"
  get the script of bkgnd button "card script"
  set the script of this card to it
  send opencard to this card
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=424 top=261 right=308 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DELETE THIS CARD
----- HyperTalk script -----
on mouseUp
  answer "Do You Really Want To Delete This Card?" with "yes" or "Cancel"
  if it is "yes" then
    set lockscreen to true
    domenu "delete card"
    push card
    go to card 1
    put line 1 of bkgnd field "nump" into nprogs
    put nprogs - 1 into LINE 1 of bkgnd field "nump"
    get loc of card button "rebuild file list"
    click at it
    pop card
    set lockscreen to false
  end if
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=27 top=298 right=342 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search for Files
----- HyperTalk script -----
function buttonName fullName
put the length of fullName into lastChar
repeat with i = lastChar down to 1
  if char i of fullName = ":" then exit repeat
end repeat
return char (i + 1) to lastChar of fullName
end buttonName
function address fullName
put the length of fullName into lastChar
repeat with i = lastChar down to 1
  if char i of fullName = ":" then exit repeat
end repeat
return char 1 to i of fullName
end address


on mousedown
  global resourcefindflag
  global creatorcode
  global res
  global appname
  global menuother
  --get the clickloc
  --put item 1 of it into h
  --put item 2 of it into v
  put 0 into resourceflag
  --get PopUpMenu("Applications;Hypercard Stacks;DA;All;Other;Resource", 9, v, h)
  put "APPL" into sstring
  Get HPopupMenu(menuother,0,The MouseV-50,The MouseH)
  Put Item 1 of it into TheLine
  put Item 2 of it into TheItem
  put empty into it
  put theline into it

  if it is 0 then
    show bkgnd field "mousedown message"
    exit mousedown
  end if

  if it = 1 then
    put "APPL" into sstring
  end if
  if it = 2 then
    put "STAK" into sstring
  end if
  if it = 3 then
    put "DFIL" into sstring
  end if

  if it = 4 then
    put "" into sstring
  end if
  if it is 5 then
    if theitem = 11 then
      repeat with x=1 to 1000
        ask "Enter the 4 letter creator code(Case is important)"
        if it is empty then
          exit mousedown
        end if
        put 0 into t1
        repeat with x=1 to 5
          if char x of it is not empty then
            add 1 to t1
          end if
        end repeat
        if t1 = 4  then
          exit repeat
        end if
        answer "Sorry you need exactly 4 letters"
      end repeat
      put it into sstring
    else
      put item theitem-1 of creatorcodes into sstring
    end if

  end  if
  if it is 6 then
    put "" into sstring
    put 1 into resourceflag
    if theitem is 9 then
      repeat with x=1 to 1000
        ask "Enter the 4 letter resource name"
        if it is empty then
          exit mousedown
        end if
        put 0 into t1
        repeat with x=1 to 5
          if char x of it is not empty then
            add 1 to t1
          end if
        end repeat
        if t1 = 4  then
          exit repeat
        end if
        answer "Sorry you need exactly 4 letters"
      end repeat
      put it into resourcename
    else
      put item theitem of line theline of menu into resourcename
    end if

  end  if

  get fileName(sstring)
  put it into appFile
  if it is not empty and offset ("¢",it) is 0 then
    put appFile into fname
    put buttonName(appFile) into appName
    --put "after button name " & appname into line 1 of card field "gork"
    set lockscreen to true
    --put the number of this card into gork
    find appname in bkgnd field "program name"
    if the result is empty then
      answer "A file with this name already entered" with "continue" or "Cancel"
      if it is "cancel" then
        go to card gork
        set lockscreen to false
        exit mousedown

      end if
    else
      set lockscreen to false
    end if
    get filemoddate(fname,test)
    convert it to short date
    put it into bkgnd field "date"
    set cursor to 4
    set the name of this card to appName
    --put "after card name" && appname into line 2 of card field "gork"
    set lockscreen to true
    push card
    go to card 1
    put line 1 of bkgnd field "nump" into nprogs
    put nprogs + 1 into nprogs
    put nprogs into line 1 of bkgnd field "nump"
    put appName into line nprogs of card field 1
    pop card
    set lockscreen to false
    put appName into bkgnd field "program name"
    put address(appFile) into bkgnd field "location"
    put bkgnd field "location" & bkgnd field "program name" into address
    put xfileinfo(address) into t43
    if first word of first item of t43 is not "error" then
      put (item 1 of t43) into bkgnd field "size"
      put item 2 of t43 && item 3 of t43  && item 4 of t43 into bkgnd field "date"
      put item 8 of t43 into bkgnd field "file type"
      put item 9 of t43 into bkgnd field "creator"
    end if

    --This sets the ICON of the button with GetapplIcon XFCN
    --put long name of this stack into thisStack
    --put char 8 to (number of chars in thisStack - 1) of thisStack into thisStack
    --put GetAppIcon(appfile,appfile,thisStack) into iconNo
    put 32462 into iconNo
    if offset("hypercard",appName) < 1 and sstring is "APPL" then
      --This sets the ICON of the button with GetapplIcon XFCN
      put long name of this stack into thisStack
      put char 8 to (number of chars in thisStack - 1) of thisStack into thisStack
      put GetAppIcon(appfile,appfile,thisStack) into iconNo
    end if

    if offset("hypercard",appName) > 0 then
      put 1001 into iconno
    end if
    if sstring is "STAK" or bkgnd field "file type" is "STAK" then
      put 1000 into iconno
    end if

    if iconNo = "0" then exit mousedown

    if the number of card buttons > 0 then
      choose "button tool"
      get loc of card button 1
      click at it
      domenu "cut button"
    end if
    doMenu "New Button"
    hide button "New Button"
    set showname of button "New Button" to false
    set icon of button "New Button" to iconNo
    UpdateResFork
    set style of button "New Button" to transparent
    set rect of button "New Button" to 77,1,116,41
    put char 1 to 20 of appname into nbuttonname
    set name of button "New Button" to nbuttonname
    --put "after new button name" && appname into line 3 of card field "gork"
    get the script of bkgnd button "launch"
    set the script of  card button nbuttonname to it
    show button nbuttonname
    choose "browse tool"

    if resourcefindflag > 0 then

      global res
      set the cursor to 4
      put empty into res
      put xreslong(address) into temp
      put res & temp into temp
      -- get the first resource type which will always be in the front
      put offset(":",temp) into nex
      put empty into bkgnd field "resources"

      -- if there are no resources notify the user
      if nex < 1 then
        put "Sorry no resources found in this file" into bkgnd field "resources"
        exit mousedown

      end if
      --put temp
      put item 1 of temp into resname
      put 1 into useline
      put 0 into numnoname
      repeat with x=2 to the number of items in temp
        get item x of temp
        put offset (":",it) into t1
        -- if the next item doesn't contain a : it is of the same resource class
        if t1 < 1 then
          if it is empty or it is "," then
            add 1 to numnoname
          else

            put resname && it into line useline of bkgnd field "resources"
            add 1 to useline
          end if
        else
          if numnoname >0 then
            put resname && numnoname && "unnamed" into line useline of bkgnd field "resources"
            add 1 to useline
          end if

          put item x of temp into resname
          put 0 into numnoname
        end if
      end repeat
    end if


  end if
  put the short time && the short date into bkgnd field "update date"

end mousedown




-- part 19 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=439 top=106 right=125 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: color
----- HyperTalk script -----
on mouseup
  global color
  if color = 2 then
    put "???" into bkgnd field "color"
    put 0 into color
    exit mouseup
  end if
  if color = 1 then
    put 2 into color
    put "no" into bkgnd field "color"
    exit mouseup
  end if
  if color = 0 then
    put 1 into color
    put "yes" into bkgnd field "color"
    exit mouseup
  end if
end mouseup




-- part 25 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=429 top=137 right=153 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 256
-- line height: 12
-- part name: macII
----- HyperTalk script -----
on mouseup
  global macII
  if macII = 2 then
    put 0 into macII
    put "???" into bkgnd field "macII"
    exit mouseup
  end if
  if macII = 1 then
    put 2 into macII
    put "yes" into bkgnd field "macII"
    exit mouseup
  end if
  if macII = 0 then
    put 1 into macII
    put "no" into bkgnd field "macII"
  end if
end mouseup




-- part 26 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=430 top=153 right=169 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 256
-- line height: 12
-- part name: macse
----- HyperTalk script -----
on mouseup
  global macse
  if macse = 2 then
    put 0 into macse
    put "???" into bkgnd field "macse"
    exit mouseup
  end if
  if macse = 1 then
    put 2 into macse
    put "yes" into bkgnd field "macse"
    exit mouseup
  end if
  if macse = 0 then
    put 1 into macse
    put "no" into bkgnd field "macse"
  end if

end mouseup




-- part 27 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=431 top=169 right=186 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 256
-- line height: 12
-- part name: mac+
----- HyperTalk script -----
on mouseup
  global macp
  if macp = 2 then
    put 0 into macp
    put "???" into bkgnd field "mac+"
    exit mouseup
  end if
  if macp = 1 then
    put 2 into macp
    put "yes" into bkgnd field "mac+"
    exit mouseup
  end if
  if macp = 0 then
    put 1 into macp
    put "no" into bkgnd field "mac+"
  end if

end mouseup




-- part 28 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=432 top=186 right=202 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 256
-- line height: 12
-- part name: mac
----- HyperTalk script -----
on mouseup
  global mac
  if mac = 2 then
    put 0 into mac
    put "???" into bkgnd field "mac"
    exit mouseup
  end if
  if mac = 1 then
    put 2 into mac
    put "yes" into bkgnd field "mac"
    exit mouseup
  end if
  if mac = 0 then
    put 1 into mac
    put "no" into bkgnd field "mac"
  end if

end mouseup




-- part 10 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=248 top=202 right=251 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: company


-- part 5 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=103 top=125 right=146 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: date


-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=0 right=26 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: index


-- part 29 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=114 top=17 right=48 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: location


-- part 30 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=142 top=273 right=320 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Sort and Find card
----- HyperTalk script -----
on mouseUp
  go to first card of this stack
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=142 top=257 right=272 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue Find
----- HyperTalk script -----
on mouseUp
  global string
  global catagory
  set the lockscreen to true
  go to next card
  find chars string in bkgnd field catagory
  set the lockscreen to false
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=102 top=2 right=14 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: launch
----- HyperTalk script -----
on mouseUp
  put bkgnd field "location" & bkgnd field "program name" into gork
  open gork
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=500 top=0 right=12 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: card script
----- HyperTalk script -----
on opencard
  global macII
  global macse
  global macp
  global mac
  global color
  put 0 into color
  put 0 into macII
  put 0 into macse
  put 0 into macp
  put 0 into mac
  get the number of this card
  put it - 1  into bkgnd field "index"
  --if the freesize of this stack > 10000 then domenu "compact stack"
end opencard



-- part 44 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=325 top=104 right=124 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: creator


-- part 43 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=324 top=82 right=102 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: file type


-- part 34 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=249 top=1 right=296 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: resources
----- HyperTalk script -----
on mousedown
  global showresourceflag
  put 0 into showresourceflag
  hide bkgnd field "resources"
end mousedown



-- part 35 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=269 top=299 right=342 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Resources
----- HyperTalk script -----
on mouseUp
  global showresourceflag
  if showresourceflag > 0 then
    hide bkgnd field "resources"
    put 0 into showresourceflag
  else
    put 1 into showresourceflag
    show bkgnd field "resources"
    set locktext of bkgnd field "resources" to true
  end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=144 top=320 right=342 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update Resources
----- HyperTalk script -----
on mouseUp
  global res
  set the cursor to 4
  put empty into res
  put bkgnd field "location" & bkgnd field "program name" into address
  if offset("hypercard",bkgnd field "program name") < 1 then
    put xreslong(address) into temp
    put res & temp into temp
    -- get the first resource type which will always be in the front
    put offset(":",temp) into nex
    put empty into bkgnd field "resources"

    -- if there are no resources notify the user
    if nex < 1 then
      if offset("error",temp) > 0 then
        put temp into bkgnd field "resources"
        exit mouseup
      else
        put "Sorry no resources found in this file" into bkgnd field "resources"
        exit mouseup
      end if
    end if
    --put temp
    put item 1 of temp into resname
    put 1 into useline
    put 0 into numnoname
    repeat with x=2 to the number of items in temp
      get item x of temp
      put offset (":",it) into t1
      -- if the next item doesn't contain a : it is of the same resource class
      if t1 < 1 then
        if it is empty or it is "," then
          add 1 to numnoname
        else
          put resname && it into line useline of bkgnd field "resources"
          add 1 to useline
        end if
      else
        if numnoname >0 then
          put resname && numnoname && "unnamed" into line useline of bkgnd field "resources"
          add 1 to useline
        end if
        put item x of temp into resname
        put 0 into numnoname
      end if
    end repeat
    -- here we take care of cases which end with no named resources
    if numnoname >0 then
      put resname && numnoname && "unnamed" into line useline of bkgnd field "resources"
      add 1 to useline
    end if
  else
    put "Sorry can't look at Hypercard resources" into bkgnd field "resources"
  end if



end mouseUp



-- part 37 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=102 top=124 right=208 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: mousedown message
----- HyperTalk script -----
on mouseup
  hide bkgnd field "mousedown message"
end mouseup



-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=4 top=288 right=309 bottom=27
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show bkgnd field "add file explan"
end mouseUp



-- part 40 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=115 top=1 right=227 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: add file explan
----- HyperTalk script -----
on mouseup
  hide bkgnd field "add file explan"
end mouseup



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=313 right=331 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show background field "resource help"
end mouseUp



-- part 42 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=141 top=1 right=241 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: resource help
----- HyperTalk script -----
on mouseup
  hide bkgnd field "resource help"
end mouseup



-- part 45 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=123 top=238 right=255 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: update date